The Netherlands - A Compact World/The Netherlands.iso/chapters/4.dxr/00005_send-msg.ls

Text File | 2004-06-10 | 803 b | 44 lines

property spriteNum, Pactie, Pmsg

on beginSprite me
end

on endSprite me
end

on mouseEnter me
  if Pactie = #mouseEnter then
    hActie()
  end if
end

on mouseDown me
  if Pactie = #mouseDown then
    hActie()
  end if
end

on mouseLeave me
  if Pactie = #mouseLeave then
    hActie()
  end if
end

on mouseUp me
  if Pactie = #mouseUp then
    hActie()
  end if
end

on hActie me
  sendAllSprites(#uit)
  sendAllSprites(#aan, Pmsg)
end

on getPropertyDescriptionList me
  propertyList = [:]
  setaProp(propertyList, #Pactie, [#comment: "kies een actie ", #format: #text, #default: #mouseEnter, #range: [#mouseEnter, #mouseDown, #mouseUp, #mouseLeave]])
  setaProp(propertyList, #Pmsg, [#comment: "send een msg naar all de sprites, msg;", #format: #string, #default: "msg"])
  return propertyList
end